home *** CD-ROM | disk | FTP | other *** search
/ Aminet 41 / Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso / Aminet / util / rexx / rmh.lha / rmh / examples / head.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  2000-11-28  |  628 b   |  37 lines
  1. /*
  2.  *
  3.  * Read first n lines
  4.  *
  5.  */
  6.  
  7.  
  8. if ~RMH_ReadArgs("FROM/K,TO/K,LINES/N/A") then do
  9.     call PrintFault(IoErr(),ProgramName("NOEXT"))
  10.     exit
  11. end
  12.  
  13. if parm.0.flag then do
  14.     if ~Open("IN",parm.0.value,R) then do
  15.         call PrintFault(IoErr(),ProgramName("NOEXT"))
  16.         exit
  17.     end
  18. end
  19. else in = "STDIN"
  20.  
  21. if parm.1.flag then do
  22.     if ~Open("OUT",parm.1.value,W) then do
  23.         call PrintFault(IoErr(),ProgramName("NOEXT"))
  24.         exit
  25.     end
  26. end
  27. else out = "STDOUT"
  28.  
  29. c=ReadCH(in,1)
  30. call Seek(in,-1,"CURRENT")
  31. do i=1 to parm.2.value while length(c)>0
  32.     l=ReadLn(in)
  33.     call WriteLn(out,l)
  34.     c=ReadCH(in,1)
  35.     call seek(in,-1,"CURRENT")
  36. end
  37.